home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 19 / MacAddict_019_1998_03.iso / Media / Demos.dxr / Internal_2_MIAW's Code.ls < prev    next >
Encoding:
Text File  |  1997-12-18  |  538 b   |  24 lines
  1. on openIndex
  2.   set the fileName of window "Index" to "index.dir"
  3.   set the title of window "Index" to "Index"
  4.   set the windowType of window "Index" to 49
  5.   open(window "Index")
  6. end
  7.  
  8. on closeIndex
  9.   close(window "index")
  10.   forget(window "index")
  11. end
  12.  
  13. on openconfigwindow
  14.   set the fileName of window "Config" to "config.dir"
  15.   set the title of window "Config" to "Configuration Options"
  16.   set the windowType of window "Config" to 49
  17.   open(window "Config")
  18. end
  19.  
  20. on closeConfigWindow
  21.   close(window "Config")
  22.   forget(window "Config")
  23. end
  24.